home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / BASALT.TCL < prev    next >
Encoding:
Text File  |  2001-12-15  |  2.4 KB  |  100 lines
  1. #
  2. #   Statewatcher Script fuer Basaltface
  3. #
  4. #   created:    28-Mar-01   floh    created
  5. #
  6.  
  7. #-------------------------------------------------------------------------------
  8. proc basalt_watch_normal {} {
  9.     # nur dummy damit man ueberhaupt Objekt erzeugen kann
  10. }
  11.  
  12. #-------------------------------------------------------------------------------
  13.  
  14. # Text01: Basaltface materialisiert
  15. proc basalt_watch_text01_erschein {} {
  16.     if {[.isanimfinished] == "true"} {
  17.         .announcestate text01_normal
  18.     }
  19. }
  20.  
  21. # Text01: Basaltface redet und hampelt mit den Haenden
  22. proc basalt_watch_text01_normal {} {
  23.     if {[.isanimfinished] == "true"} {
  24.         .announcestate text01_zeig
  25.     }
  26. }
  27.  
  28. # Text01: Basaltface zeigt irgendwo hin
  29. proc basalt_watch_text01_zeig {} {
  30.     if {[.isanimfinished] == "true"} {
  31.         .announcestate weg
  32.     }
  33. }
  34.  
  35. #-------------------------------------------------------------------------------
  36.  
  37. # Text02: Basaltface materialisiert
  38. proc basalt_watch_text02_erschein {} {
  39.     if {[.isanimfinished] == "true"} {
  40.         .announcestate text02_normal
  41.     }
  42. }
  43.  
  44. # Text02: Basaltface redet und hampelt mit den Haenden
  45. proc basalt_watch_text02_normal {} {
  46.     if {[.isanimfinished] == "true"} {
  47.         .announcestate text02_zeig
  48.     }
  49. }
  50.  
  51. # Text02: Basaltface zeigt irgendwo hin
  52. proc basalt_watch_text02_zeig {} {
  53.     if {[.isanimfinished] == "true"} {
  54.         .announcestate weg
  55.     }
  56. }
  57.  
  58. #-------------------------------------------------------------------------------
  59.  
  60. # Text03: Basaltface materialisiert
  61. proc basalt_watch_text03_erschein {} {
  62.     if {[.isanimfinished] == "true"} {
  63.         .announcestate text03_normal
  64.     }
  65. }
  66.  
  67. # Text03: Basaltface redet und hampelt mit den Haenden
  68. proc basalt_watch_text03_normal {} {
  69.     if {[.isanimfinished] == "true"} {
  70.         .announcestate text03_zeig
  71.     }
  72. }
  73.  
  74. # Text03: Basaltface zeigt irgendwo hin
  75. proc basalt_watch_text03_zeig {} {
  76.     if {[.isanimfinished] == "true"} {
  77.         .announcestate weg
  78.     }
  79. }
  80.  
  81. #-------------------------------------------------------------------------------
  82.  
  83. # Basaltface verschwindet
  84. proc basalt_watch_weg {} {
  85.     if {[.isanimfinished] == "true"} {
  86.         .announcestate invis
  87.     }
  88. }
  89.  
  90. # Basaltface ist unsichtbar
  91. proc basalt_watch_invis {} {
  92.     # FLOH: removed obsolete putevent stuff
  93. }
  94.  
  95. #-------------------------------------------------------------------------------
  96.  
  97.  
  98.     
  99.  
  100.